inherited FrmTiposPrecosProdutos: TFrmTiposPrecosProdutos
  Left = 382
  Top = 196
  Width = 711
  Height = 500
  Caption = 'Tipos de Pre'#231'os do Produto'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlTopo: TPanel
    Width = 703
    Caption = 'Tipos de Pre'#231'os'
  end
  inherited PnlCentro: TPanel
    Width = 703
    Height = 384
    object GroupBox2: TGroupBox
      Left = 4
      Top = 153
      Width = 695
      Height = 141
      Align = alClient
      Caption = 'Pre'#231'os'
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 691
        Height = 124
        Align = alClient
        DataSource = DTS_TIPOS_PRECOS_PRODUTO
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'DescricaoTipo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TPP_VALOR'
            Visible = True
          end>
      end
    end
    object pnlBtnTipos: TPanel
      Left = 4
      Top = 294
      Width = 695
      Height = 86
      Align = alBottom
      TabOrder = 1
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 67
        Height = 13
        Caption = 'Tipo de Pre'#231'o'
        FocusControl = DBEditTipoPreco
      end
      object Label4: TLabel
        Left = 312
        Top = 8
        Width = 28
        Height = 13
        Caption = 'Pre'#231'o'
        FocusControl = DBEditValor
      end
      object DBEditTipoPreco: TDBEdit
        Left = 8
        Top = 24
        Width = 41
        Height = 21
        DataField = 'TPP_TIPOIDF'
        DataSource = DTS_TIPOS_PRECOS_PRODUTO
        Enabled = False
        TabOrder = 0
        OnExit = DBEditTipoPrecoExit
      end
      object btnTipoPreco: TBitBtn
        Left = 50
        Top = 24
        Width = 21
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 1
        TabStop = False
        OnClick = btnTipoPrecoClick
      end
      object stTipoPreco: TStaticText
        Left = 72
        Top = 24
        Width = 233
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 2
      end
      object DBEditValor: TDBEdit
        Left = 312
        Top = 24
        Width = 134
        Height = 21
        DataField = 'TPP_VALOR'
        DataSource = DTS_TIPOS_PRECOS_PRODUTO
        Enabled = False
        TabOrder = 3
        OnExit = DBEditValorExit
      end
      object btnNovo: TBitBtn
        Left = 8
        Top = 56
        Width = 75
        Height = 25
        Caption = 'Novo'
        Enabled = False
        TabOrder = 4
        OnClick = btnNovoClick
      end
      object BtnCancelar: TBitBtn
        Left = 83
        Top = 56
        Width = 75
        Height = 25
        Caption = 'Cancelar'
        Enabled = False
        TabOrder = 5
        OnClick = BtnCancelarClick
      end
      object BtnEditar: TBitBtn
        Left = 158
        Top = 56
        Width = 75
        Height = 25
        Caption = 'Editar'
        Enabled = False
        TabOrder = 6
        OnClick = BtnEditarClick
      end
      object BtnGravar: TBitBtn
        Left = 233
        Top = 56
        Width = 75
        Height = 25
        Caption = 'Gravar'
        Enabled = False
        TabOrder = 7
        OnClick = BtnGravarClick
      end
      object btnExcluir: TBitBtn
        Left = 308
        Top = 56
        Width = 75
        Height = 25
        Caption = 'Excluir'
        Enabled = False
        TabOrder = 8
        OnClick = btnExcluirClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 4
      Top = 4
      Width = 695
      Height = 149
      Align = alTop
      Caption = 'Dados do Produto'
      TabOrder = 2
      object Label3: TLabel
        Left = 304
        Top = 16
        Width = 44
        Height = 13
        Caption = 'Empresa:'
      end
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 40
        Height = 13
        Caption = 'Produto:'
      end
      object stEmpresa: TStaticText
        Left = 393
        Top = 35
        Width = 296
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 0
      end
      object btnEmpresa: TBitBtn
        Left = 371
        Top = 35
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 1
        OnClick = btnEmpresaClick
      end
      object edtEmpresa: TEdit
        Left = 304
        Top = 35
        Width = 65
        Height = 21
        TabOrder = 2
        OnExit = edtEmpresaExit
      end
      object stProduto: TStaticText
        Left = 6
        Top = 35
        Width = 295
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 3
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 59
        Width = 683
        Height = 86
        Caption = 'Pre'#231'os Padr'#227'o'
        TabOrder = 4
        object Label17: TLabel
          Left = 9
          Top = 12
          Width = 39
          Height = 13
          Caption = 'Compra:'
        end
        object Label21: TLabel
          Left = 104
          Top = 11
          Width = 30
          Height = 13
          Caption = 'Custo:'
        end
        object Label22: TLabel
          Left = 200
          Top = 12
          Width = 33
          Height = 13
          Caption = 'Varejo:'
        end
        object Label23: TLabel
          Left = 296
          Top = 11
          Width = 43
          Height = 13
          Caption = 'Atacado:'
        end
        object Label20: TLabel
          Left = 401
          Top = 10
          Width = 36
          Height = 13
          Caption = 'Sit.Trib:'
        end
        object Label24: TLabel
          Left = 495
          Top = 9
          Width = 42
          Height = 13
          Caption = 'Cla.Trib.:'
        end
        object EdtPcoCompra: TDBEdit
          Left = 9
          Top = 27
          Width = 88
          Height = 21
          Hint = 'Pre'#231'o de Compra por Unidade'
          CharCase = ecUpperCase
          DataField = 'ESE_PRECOM'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 0
        end
        object EdtPcoCusto: TDBEdit
          Left = 104
          Top = 27
          Width = 88
          Height = 21
          Hint = 'Custo de Compra de Unidade'
          CharCase = ecUpperCase
          DataField = 'ESE_PRECUS'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 1
        end
        object EdtPcoVarejo: TDBEdit
          Left = 200
          Top = 27
          Width = 88
          Height = 21
          Hint = 'Pre'#231'o de Venda no Varejo'
          CharCase = ecUpperCase
          DataField = 'ESE_PREVEN'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 2
        end
        object EdtPcoAtacado: TDBEdit
          Left = 296
          Top = 27
          Width = 88
          Height = 21
          Hint = 'Pre'#231'o de Venda no Atacado'
          CharCase = ecUpperCase
          DataField = 'ESE_PREATA'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 3
        end
        object btnAtualiza: TBitBtn
          Left = 88
          Top = 56
          Width = 89
          Height = 25
          Caption = 'Atualizar Valores'
          Enabled = False
          TabOrder = 11
          OnClick = btnAtualizaClick
        end
        object btnReverter: TBitBtn
          Left = 177
          Top = 56
          Width = 75
          Height = 25
          Caption = 'Reverter'
          Enabled = False
          TabOrder = 12
          OnClick = btnReverterClick
        end
        object btnAlter: TBitBtn
          Left = 13
          Top = 56
          Width = 75
          Height = 25
          Caption = 'Alterar'
          Enabled = False
          TabOrder = 10
          OnClick = btnAlterClick
        end
        object EdtEstIpiCod: TDBEdit
          Left = 498
          Top = 27
          Width = 40
          Height = 21
          CharCase = ecUpperCase
          DataField = 'ESE_IPICOD'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 7
          OnExit = EdtEstIpiCodExit
        end
        object EdtEstSitCod: TDBEdit
          Left = 394
          Top = 27
          Width = 40
          Height = 21
          Hint = 'Situa'#231#227'o Tribut'#225'ria'
          CharCase = ecUpperCase
          DataField = 'ESE_SITCOD'
          DataSource = DTS_PRECOS_EMPRESA
          Enabled = False
          TabOrder = 4
          OnExit = EdtEstSitCodExit
        end
        object BtnSituacao: TBitBtn
          Left = 435
          Top = 26
          Width = 22
          Height = 22
          Hint = 'Consulta situa'#231#227'o tribut'#225'ria'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          TabStop = False
          OnClick = BtnSituacaoClick
        end
        object EdtEstSitIcm: TEdit
          Left = 457
          Top = 27
          Width = 35
          Height = 21
          TabStop = False
          CharCase = ecUpperCase
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 5
        end
        object EdtEstIpiAlq: TEdit
          Left = 561
          Top = 27
          Width = 35
          Height = 21
          TabStop = False
          CharCase = ecUpperCase
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 9
        end
        object BtnIpi: TBitBtn
          Left = 536
          Top = 26
          Width = 25
          Height = 22
          Hint = 'Consulta classifica'#231#227'o tribut'#225'ria'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          TabStop = False
          OnClick = BtnIpiClick
        end
      end
    end
  end
  inherited PnlBotoes: TPanel
    Top = 425
    Width = 703
    inherited btOK: TBitBtn
      Left = 541
    end
    inherited btCancelar: TBitBtn
      Left = 616
    end
  end
  object CDS_PRECOS_EMPRESA: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'ESE_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_EMPCOD'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_PRECOS_EMPRESA'
    Left = 324
    Top = 154
    object CDS_PRECOS_EMPRESAESE_IDFCOD: TIntegerField
      FieldName = 'ESE_IDFCOD'
      Required = True
    end
    object CDS_PRECOS_EMPRESAESE_EMPCOD: TSmallintField
      FieldName = 'ESE_EMPCOD'
      Required = True
    end
    object CDS_PRECOS_EMPRESAESE_PRECOM: TFloatField
      FieldName = 'ESE_PRECOM'
    end
    object CDS_PRECOS_EMPRESAESE_PRECUS: TFloatField
      FieldName = 'ESE_PRECUS'
    end
    object CDS_PRECOS_EMPRESAESE_PREVEN: TFloatField
      FieldName = 'ESE_PREVEN'
    end
    object CDS_PRECOS_EMPRESAESE_PREATA: TFloatField
      FieldName = 'ESE_PREATA'
    end
    object CDS_PRECOS_EMPRESAESE_SITCOD: TStringField
      FieldName = 'ESE_SITCOD'
      Required = True
      Size = 2
    end
    object CDS_PRECOS_EMPRESAESE_IPICOD: TStringField
      FieldName = 'ESE_IPICOD'
      Required = True
      Size = 2
    end
  end
  object CDS_TIPOS_PRECOS_PRODUTO: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'UK_TIPOS_PRECOS'
        Fields = 'TPP_TIPOIDF;TPP_PRODIDF;TPP_EMPRESA'
        Options = [ixUnique]
      end>
    IndexName = 'UK_TIPOS_PRECOS'
    Params = <
      item
        DataType = ftUnknown
        Name = 'TPP_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_PRODIDF'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_TIPOS_PRECOS_PRODUTOS'
    StoreDefs = True
    AfterInsert = CDS_TIPOS_PRECOS_PRODUTOAfterInsert
    AfterScroll = CDS_TIPOS_PRECOS_PRODUTOAfterScroll
    OnCalcFields = CDS_TIPOS_PRECOS_PRODUTOCalcFields
    Left = 212
    Top = 298
    object CDS_TIPOS_PRECOS_PRODUTOTPP_TIPOIDF: TIntegerField
      DisplayLabel = 'Tipo de Pre'#231'o'
      FieldName = 'TPP_TIPOIDF'
      ProviderFlags = [pfInWhere, pfInKey]
      Required = True
    end
    object CDS_TIPOS_PRECOS_PRODUTOTPP_PRODIDF: TIntegerField
      DisplayLabel = 'Produto'
      FieldName = 'TPP_PRODIDF'
      ProviderFlags = [pfInWhere, pfInKey]
      Required = True
    end
    object CDS_TIPOS_PRECOS_PRODUTOTPP_EMPRESA: TSmallintField
      DisplayLabel = 'Empresa'
      FieldName = 'TPP_EMPRESA'
      ProviderFlags = [pfInWhere, pfInKey]
      Required = True
    end
    object CDS_TIPOS_PRECOS_PRODUTOTPP_VALOR: TFloatField
      DisplayLabel = 'Pre'#231'o'
      FieldName = 'TPP_VALOR'
      Required = True
    end
    object CDS_TIPOS_PRECOS_PRODUTODescricaoTipo: TStringField
      DisplayLabel = 'Tipo de Pre'#231'o'
      FieldKind = fkCalculated
      FieldName = 'DescricaoTipo'
      Size = 40
      Calculated = True
    end
  end
  object DSP_TIPOS_PRECOS_PRODUTOS: TDataSetProvider
    DataSet = ZQRY_TIPOS_PRECOS_PRODUTOS
    Left = 420
    Top = 306
  end
  object DSP_PRECOS_EMPRESA: TDataSetProvider
    DataSet = ZQRY_PRECOS_EMPRESA
    Left = 412
    Top = 186
  end
  object DTS_PRECOS_EMPRESA: TDataSource
    AutoEdit = False
    DataSet = CDS_PRECOS_EMPRESA
    OnStateChange = DTS_PRECOS_EMPRESAStateChange
    Left = 204
    Top = 178
  end
  object DTS_TIPOS_PRECOS_PRODUTO: TDataSource
    AutoEdit = False
    DataSet = CDS_TIPOS_PRECOS_PRODUTO
    OnStateChange = DTS_TIPOS_PRECOS_PRODUTOStateChange
    Left = 332
    Top = 250
  end
  object ZQRY_PRECOS_EMPRESA: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUPDATE_PRECOS_EMPRESA
    SQL.Strings = (
      'SELECT  '
      '  ESE_IDFCOD,'
      '  ESE_EMPCOD,'
      '  ESE_PRECOM,'
      '  ESE_PRECUS,'
      '  ESE_PREVEN,'
      '  ESE_PREATA,'
      '  ESE_SITCOD,'
      '  ESE_IPICOD'
      'FROM '
      '  ESTOQUE_EMPRESA '
      'WHERE'
      '  ESE_IDFCOD = :ESE_IDFCOD AND  ESE_EMPCOD = :ESE_EMPCOD')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ESE_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_EMPCOD'
        ParamType = ptUnknown
      end>
    Left = 92
    Top = 205
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ESE_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_EMPCOD'
        ParamType = ptUnknown
      end>
  end
  object ZQRY_TIPOS_PRECOS_PRODUTOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUPDATE_PRECOS_PRODUTOS
    SQL.Strings = (
      'SELECT '
      '  TPP_TIPOIDF,'
      '  TPP_PRODIDF,'
      '  TPP_EMPRESA,'
      '  TPP_VALOR'
      'FROM '
      '  TIPO_PRECOS_PRODUTO'
      'WHERE '
      'TPP_EMPRESA = :TPP_EMPRESA'
      'AND'
      'TPP_PRODIDF = :TPP_PRODIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TPP_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_PRODIDF'
        ParamType = ptUnknown
      end>
    Left = 98
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TPP_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_PRODIDF'
        ParamType = ptUnknown
      end>
  end
  object ZUPDATE_PRECOS_PRODUTOS: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM TIPO_PRECOS_PRODUTO'
      'WHERE'
      '  TIPO_PRECOS_PRODUTO.TPP_TIPOIDF = :OLD_TPP_TIPOIDF AND'
      '  TIPO_PRECOS_PRODUTO.TPP_PRODIDF = :OLD_TPP_PRODIDF '
      'AND'
      '  TIPO_PRECOS_PRODUTO.TPP_EMPRESA = :OLD_TPP_EMPRESA')
    InsertSQL.Strings = (
      'INSERT INTO TIPO_PRECOS_PRODUTO'
      '  (TPP_TIPOIDF, TPP_PRODIDF, TPP_EMPRESA, TPP_VALOR)'
      'VALUES'
      '  (:TPP_TIPOIDF, :TPP_PRODIDF, :TPP_EMPRESA, :TPP_VALOR)')
    ModifySQL.Strings = (
      'UPDATE TIPO_PRECOS_PRODUTO SET'
      '  TPP_VALOR = :TPP_VALOR'
      'WHERE'
      '  TIPO_PRECOS_PRODUTO.TPP_TIPOIDF = :OLD_TPP_TIPOIDF AND'
      '  TIPO_PRECOS_PRODUTO.TPP_PRODIDF = :OLD_TPP_PRODIDF '
      'AND'
      '  TIPO_PRECOS_PRODUTO.TPP_EMPRESA = :OLD_TPP_EMPRESA')
    UseSequenceFieldForRefreshSQL = False
    Left = 530
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TPP_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_TPP_TIPOIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_TPP_PRODIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_TPP_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_TIPOIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_PRODIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPP_EMPRESA'
        ParamType = ptUnknown
      end>
  end
  object ZUPDATE_PRECOS_EMPRESA: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM ESTOQUE_EMPRESA'
      'WHERE'
      '  ESTOQUE_EMPRESA.ESE_IDFCOD = :OLD_ESE_IDFCOD AND'
      '  ESTOQUE_EMPRESA.ESE_EMPCOD = :OLD_ESE_EMPCOD')
    InsertSQL.Strings = (
      'INSERT INTO ESTOQUE_EMPRESA'
      '  (ESE_IDFCOD, ESE_EMPCOD, ESE_PRECOM, ESE_PRECUS, '
      'ESE_PREVEN, ESE_PREATA, '
      '   ESE_SITCOD, ESE_IPICOD)'
      'VALUES'
      '  (:ESE_IDFCOD, :ESE_EMPCOD, :ESE_PRECOM, :ESE_PRECUS, '
      ':ESE_PREVEN, :ESE_PREATA, '
      '   :ESE_SITCOD, :ESE_IPICOD)')
    ModifySQL.Strings = (
      'UPDATE ESTOQUE_EMPRESA SET'
      '  ESE_PRECOM = :ESE_PRECOM,'
      '  ESE_PRECUS = :ESE_PRECUS,'
      '  ESE_PREVEN = :ESE_PREVEN,'
      '  ESE_PREATA = :ESE_PREATA,'
      '  ESE_SITCOD = :ESE_SITCOD,'
      '  ESE_IPICOD = :ESE_IPICOD'
      'WHERE'
      '  ESTOQUE_EMPRESA.ESE_IDFCOD = :OLD_ESE_IDFCOD AND'
      '  ESTOQUE_EMPRESA.ESE_EMPCOD = :OLD_ESE_EMPCOD')
    UseSequenceFieldForRefreshSQL = False
    Left = 530
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ESE_PRECOM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_PRECUS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_PREVEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_PREATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_SITCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_IPICOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_ESE_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_ESE_EMPCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ESE_EMPCOD'
        ParamType = ptUnknown
      end>
  end
end
